home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet multimedia / Animacje, filmy i prezentacje / Modelowanie 3D / K-3D 0.6.5.0 / k3d-all-in-one-setup-0.6.5.0.exe / k3d-setup-0.6.5.0.exe / share / lsystem / higgs-sierpinski-variants.ls < prev    next >
Encoding:
Text File  |  2005-02-12  |  1.0 KB  |  31 lines
  1. #------Lparser/Mutator------C.J.van der Mark--------
  2. #-- This file produces the 3D Sierpinski gasket.----
  3. #-- Only uneven rec.levels will produce objects.----
  4. 7
  5. 30
  6. 1
  7. #
  8. #C                              # 3D Sierpinsky gasket
  9. #
  10. # --- plug in AXIOM lines for new forms --- Martin Higgs ---
  11. #
  12. #C|C                                                   # diamond
  13. #C|>>cC|>>ccC|>>cccC|>>ccccC|>>cccccC                  # Rubric snake
  14. #C>>cC>>ccC>>cccC>>ccccC>>cccccC                       # hexagon
  15. #C'>>|C'>>|C'>>|C'>>|C'>>|C                            # snake 1
  16. #C'|>>C'|>>C'|>>C|'>>C'|>>C                            # snake 2
  17. C|C'>>|cC'>>|C'>>|C'>>|C'>>|C'>>|C'>>|C'>>|C'>>|C     # snake 3
  18. #C'>>C'>>C'>>C'>>C''>>C                                # ammonite 1
  19. #Ce<<Ce<<Ce<<Ce<<Ce<<Ce<<Ce<<Ce<<Ce<<Ce<<C             # ammonite 2
  20. #e='(.885)                                             #    "
  21. #C<<C<<C<<C<<C<<C                                      # star
  22. #
  23. A={[+f++++f++++f]}
  24. B=[[^(19.5)A^(70)A]>>&(19.5)A^(19.5)---&&&&f&&&&<(19.5)-A]["(.5)C]+++f---
  25. C=[BB+++^^^^f---B'(0.82)f'(1.22)---^'(0.574)f'(1.74)+++>>>>>B]+++ff---
  26. #
  27. {=_
  28. }=_
  29. #
  30. @
  31.